From 558a1517b8f9755fbb61d438acb0f6b237d36b86 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 15 Jan 2001 16:37:27 +0000 Subject: [PATCH] (find-tag-noselect): Save the value of tags-file-name before switching buffers, for the case it has a buffer-local value. --- lisp/progmodes/etags.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index e01a1448af8..131610e09d7 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -820,9 +820,11 @@ See documentation of variable `tags-file-name'." (interactive (find-tag-interactive "Find tag: ")) (setq find-tag-history (cons tagname find-tag-history)) - ;; Save the current buffer's value of `find-tag-hook' before selecting the - ;; tags table buffer. - (let ((local-find-tag-hook find-tag-hook)) + ;; Save the current buffer's value of `find-tag-hook' before + ;; selecting the tags table buffer. For the same reason, save value + ;; of `tags-file-name' in case it has a buffer-local value. + (let ((local-find-tag-hook find-tag-hook) + (tags-file-name tags-file-name)) (if (eq '- next-p) ;; Pop back to a previous location. (if (ring-empty-p tags-location-ring) -- 2.30.2